(disassemble-internal): Graceful error if compile failed.

diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el
index d405db4200ec2b6e63490b239cc0799a8af7fee3..4199728888e18e309384124eec733316c93b4f47 100644 (file)
--- a/lisp/emacs-lisp/disass.el
+++ b/lisp/emacs-lisp/disass.el
@@ -104,8 +104,9 @@ redefine OBJECT if it is a symbol."
           (setq obj (cdr obj))         ;throw lambda away
           (setq args (car obj))        ;save arg list
           (setq obj (cdr obj)))
-         (t
-          (setq args (aref obj 0))))
+         ((byte-code-function-p obj)
+          (setq args (aref obj 0)))
+          (t (error "Compilation failed")))
     (if (zerop indent) ; not a nested function
        (progn
          (indent-to indent)